home *** CD-ROM | disk | FTP | other *** search
/ Aminet 43 / Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso / Aminet / game / actio / PaybackUpdate3.lha / PaybackUpdate3 / UpdatePayback-Svenska < prev    next >
Text File  |  2001-03-21  |  1KB  |  47 lines
  1. ; $VER: Payback Update Version 1.2 (23 February 2001)
  2. ; © James Daniels/Apex Designs
  3.  
  4. (set #installdrawer (cat "Välj den låda du har installerat Payback i."))
  5.  
  6. (set #installdrawer-help (cat "Var god, välj lådan som innehåller den skarpa versionen av Payback som du vill uppdatera."))
  7.  
  8. (set #notfound (cat "\nDetta verkar inte vara en accepterad Payback installation.\nVar god, välj en annan låda."))
  9.  
  10. (set #install-all (cat "Uppdaterar filerna..."))
  11.  
  12. (set #finished-message (cat "\nPayback är nu uppdaterat."))
  13.  
  14. (set destdir "RAM:")
  15.  
  16. (while (= (exists (tackon destdir "Payback.exe")) 0)
  17.   (
  18.     (set destdir
  19.       (askdir
  20.         (prompt #installdrawer)
  21.         (help #installdrawer-help)
  22.         (default "RAM:")
  23.         (disk)
  24.       )
  25.     )
  26.  
  27.     (if (= (exists (tackon destdir "Payback.exe")) 0)
  28.       (message #notfound)
  29.     )
  30.   )
  31. )
  32.  
  33. (complete 10)
  34.  
  35. (copyfiles
  36.     (prompt #install-all)
  37.     (source "Files/")
  38.     (pattern "#?")
  39.     (dest destdir)
  40. )
  41.  
  42. (complete 100)
  43.  
  44. (message #finished-message)
  45.  
  46. (set @default-dest destdir)
  47.